home *** CD-ROM | disk | FTP | other *** search
- <?xml version='1.0' encoding='utf-8'?>
- <snippets language="fortran">
- <snippet id="c">
- <text><![CDATA[character(len=${1:10}) :: $0]]></text>
- <tag>c</tag>
- <description>character</description>
- </snippet>
- <snippet id="cl">
- <text><![CDATA[open(${1:unit}, status='${3:keep}')]]></text>
- <tag>cl</tag>
- <description>close</description>
- </snippet>
- <snippet id="do">
- <text><![CDATA[do ${1:i}=$2, $3, ${4:1}
- ${0:source}
- end do]]></text>
- <tag>do</tag>
- <description>do ... end do</description>
- </snippet>
- <snippet id="func">
- <text><![CDATA[function ${1:name}( ${2:parameter} )
- ${3:integer/real ::} $1
- ${4:integer/real ::} $2
-
- ${0:source}
-
- $1 = !result
- end function]]></text>
- <tag>func</tag>
- <description>function</description>
- </snippet>
- <snippet id="ifel">
- <text><![CDATA[if( $1 ) then
- ${2:source}
- else
- ${0:source}
- end if]]></text>
- <tag>ifel</tag>
- <description>if ... else ... end if</description>
- </snippet>
- <snippet id="if">
- <text><![CDATA[if( $1 ) then
- ${0:source}
- end if]]></text>
- <tag>if</tag>
- <description>if ... end if</description>
- </snippet>
- <snippet id="i">
- <text><![CDATA[integer(kind=${1:4}) :: $0]]></text>
- <tag>i</tag>
- <description>integer</description>
- </snippet>
- <snippet id="ida">
- <text><![CDATA[integer(kind=${1:4}), dimension(${2::}), allocatable :: $0]]></text>
- <tag>ida</tag>
- <description>integerdimalloc</description>
- </snippet>
- <snippet id="id">
- <text><![CDATA[integer(kind=${1:4}), dimension(${2::}) :: $0]]></text>
- <tag>id</tag>
- <description>integerdim</description>
- </snippet>
- <snippet id="l">
- <text><![CDATA[logical(kind=${1:1}) :: $0]]></text>
- <tag>l</tag>
- <description>logical</description>
- </snippet>
- <snippet id="mod">
- <text><![CDATA[module ${1:name}
- implicit none
- ${2:integer/real ::} $3
-
- ${4:contains}
-
- ${0:source}
- end module]]></text>
- <tag>mod</tag>
- <description>module</description>
- </snippet>
- <snippet id="op">
- <text><![CDATA[open(${1:unit}, file='${2:name}', status='${3:new}')]]></text>
- <tag>op</tag>
- <description>open</description>
- </snippet>
- <snippet id="prog">
- <text><![CDATA[program ${1:name}
- implicit none
-
- ${0:source}
- end program]]></text>
- <tag>prog</tag>
- <description>program</description>
- </snippet>
- <snippet id="re">
- <text><![CDATA[read(unit=${1:*},fmt=${2:*}) $0]]></text>
- <tag>re</tag>
- <description>read</description>
- </snippet>
- <snippet id="r">
- <text><![CDATA[real(kind=${1:8}) :: $0]]></text>
- <tag>r</tag>
- <description>real</description>
- </snippet>
- <snippet id="rda">
- <text><![CDATA[real(kind=${1:8}), dimension(${2::}), allocatable :: $0]]></text>
- <tag>rda</tag>
- <description>realdimalloc</description>
- </snippet>
- <snippet id="rd">
- <text><![CDATA[real(kind=${1:8}), dimension(${2::}) :: $0]]></text>
- <tag>rd</tag>
- <description>realdim</description>
- </snippet>
- <snippet id="rec">
- <text><![CDATA[recursive function ${1:name}( ${2:parameter} ) result( ${3:res} )
- ${4:integer/real ::} $3
- ${5:integer/real ::} $2
-
- ${0:source}
-
- $3 = !result
- end function]]></text>
- <tag>rec</tag>
- <description>recursivfunc</description>
- </snippet>
- <snippet id="sel">
- <text><![CDATA[select case( $1 )
- case( $2 )
- ${3:source}
- case default
- ${0:source}
- end select]]></text>
- <tag>sel</tag>
- <description>select</description>
- </snippet>
- <snippet id="sub">
- <text><![CDATA[subroutine ${1:name}( ${2:parameter} )
- ${3:integer/real ::} $2
-
- ${0:source}
- end subroutine]]></text>
- <tag>sub</tag>
- <description>subroutine</description>
- </snippet>
- <snippet id="t">
- <text><![CDATA[type :: ${1:name}
- ${2:integer/real ::} $0
- end type $1]]></text>
- <tag>t</tag>
- <description>type</description>
- </snippet>
- <snippet id="dow">
- <text><![CDATA[do while( ${1} )
- ${0:source}
- end do]]></text>
- <tag>dow</tag>
- <description>while</description>
- </snippet>
- <snippet id="wr">
- <text><![CDATA[write(unit=${1:*},fmt=${2:*}) "$3", $0]]></text>
- <tag>wr</tag>
- <description>write</description>
- </snippet>
- </snippets>
-